Chip: Special Tips & Tricks for Windows 95/Chip Wintips.iso/sharewar/multimed/wavemake/wmwin.exe/0/RCDATA/TPRGEDITDLG/TPRGEDITDLG.txt

Text File | 1996-04-23 | 8KB | 317 lines

object PRGeditDlg: TPRGeditDlg
  Left = 22
  Top = 42
  HelpContext = 1000
  ActiveControl = StringGrid1
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'PRG Edit'
  ClientHeight = 448
  ClientWidth = 736
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  OnActivate = FormActivate
  OnClose = FormClose
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 411
    Width = 27
    Height = 13
    Caption = 'PRG'
    Color = clBtnFace
    ParentColor = False
  end
  object Label3: TLabel
    Left = 8
    Top = 328
    Width = 65
    Height = 13
    Caption = 'Description'
  end
  object Label4: TLabel
    Left = 85
    Top = 328
    Width = 644
    Height = 13
    Alignment = taRightJustify
    Color = clBtnFace
    ParentColor = False
  end
  object PRGdir: TLabel
    Left = 104
    Top = 411
    Width = 305
    Height = 13
    Alignment = taRightJustify
    Caption = 'PRGdir'
    Color = clBtnFace
    ParentColor = False
  end
  object Label6: TLabel
    Left = 16
    Top = 425
    Width = 82
    Height = 13
    Caption = 'WAV directory'
  end
  object WAVdir: TLabel
    Left = 104
    Top = 425
    Width = 305
    Height = 13
    Alignment = taRightJustify
    Caption = 'WAVdir'
  end
  object Bevel6: TBevel
    Left = 8
    Top = 408
    Width = 409
    Height = 33
  end
  object tempDir: TLabel
    Left = 368
    Top = 400
    Width = 44
    Height = 13
    Caption = 'tempDir'
    Visible = False
  end
  object sampleButton: TButton
    Left = 8
    Top = 288
    Width = 233
    Height = 33
    Caption = 'Sample'
    TabOrder = 10
    OnClick = sampleButtonClick
  end
  object CancelBtn: TBitBtn
    Left = 528
    Top = 408
    Width = 97
    Height = 33
    TabOrder = 1
    OnClick = CancelBtnClick
    Kind = bkCancel
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object HelpBtn: TBitBtn
    Left = 632
    Top = 408
    Width = 97
    Height = 33
    HelpContext = 1000
    TabOrder = 2
    OnClick = HelpBtnClick
    Kind = bkHelp
    Margin = 2
    Spacing = -1
    IsControl = True
  end
  object controllerButton: TButton
    Left = 252
    Top = 288
    Width = 233
    Height = 33
    Caption = 'Controller'
    TabOrder = 11
    OnClick = controllerButtonClick
  end
  object envelopeButton: TButton
    Left = 496
    Top = 288
    Width = 233
    Height = 33
    Caption = 'Envelope'
    TabOrder = 12
    OnClick = envelopeButtonClick
  end
  object insertButton: TButton
    Left = 8
    Top = 8
    Width = 49
    Height = 33
    Caption = 'Insert'
    TabOrder = 3
    OnClick = insertButtonClick
  end
  object deleteButton: TButton
    Left = 120
    Top = 8
    Width = 49
    Height = 33
    Caption = 'Delete'
    TabOrder = 5
    OnClick = deleteButtonClick
  end
  object playButton: TBitBtn
    Left = 512
    Top = 8
    Width = 105
    Height = 33
    Caption = 'Play sample'
    TabOrder = 7
    OnClick = playButtonClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333FFF3333F333333300033339333333337773F33733333330008033
      933333333737F7F37333333307078733333933337337373F3337333077088803
      33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
      9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
      99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
      93333773F377337F73F333308807880339333337F37F337F373F333088077803
      339333373F73F37333733333087777333339333373F7F7F33F37333330807033
      933333333737F73373F3333333000333393333333377733337330000}
    NumGlyphs = 2
  end
  object viewButton: TBitBtn
    Left = 624
    Top = 8
    Width = 105
    Height = 33
    Caption = 'View sample'
    TabOrder = 8
    OnClick = viewButtonClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33033333333333333F7F3333333333333000333333333333F777333333333333
      000333333333333F777333333333333000333333333333F77733333333333300
      033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
      33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
      3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
      33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
      333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
      333333773FF77333333333370007333333333333777333333333}
    NumGlyphs = 2
  end
  object StringGrid1: TStringGrid
    Left = 8
    Top = 48
    Width = 721
    Height = 233
    ColCount = 2
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing, goTabs]
    RowCount = 2
    TabOrder = 9
    OnClick = StringGrid1Click
    OnEnter = StringGrid1Enter
    OnExit = StringGrid1Exit
    OnKeyPress = StringGrid1KeyPress
  end
  object Memo1: TMemo
    Left = 8
    Top = 344
    Width = 721
    Height = 57
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'Terminal'
    Font.Style = []
    Lines.Strings = (
      'Memo1')
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 13
    OnEnter = Memo1Enter
    OnExit = Memo1Exit
  end
  object AddButton: TButton
    Left = 64
    Top = 8
    Width = 49
    Height = 33
    Caption = 'Add'
    TabOrder = 4
    OnClick = AddButtonClick
  end
  object OKbutton: TBitBtn
    Left = 424
    Top = 408
    Width = 97
    Height = 33
    Caption = 'OK'
    ModalResult = 1
    TabOrder = 0
    OnClick = OKbuttonClick
    Glyph.Data = {
      DE010000424DDE01000000000000760000002800000024000000120000000100
      0400000000006801000000000000000000000000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333330000333333333333333333333333F33333333333
      00003333344333333333333333377F3333333333000033334224333333333333
      337337F3333333330000333422224333333333333733337F3333333300003342
      222224333333333373333337F3333333000034222A22224333333337F337F333
      7F33333300003222A3A2224333333337F3737F337F33333300003A2A333A2224
      33333337F73337F337F33333000033A33333A222433333337333337F337F3333
      0000333333333A222433333333333337F337F33300003333333333A222433333
      333333337F337F33000033333333333A222433333333333337F337F300003333
      33333333A222433333333333337F337F00003333333333333A22433333333333
      3337F37F000033333333333333A223333333333333337F730000333333333333
      333A333333333333333337330000333333333333333333333333333333333333
      0000}
    Margin = 2
    NumGlyphs = 2
    Spacing = -1
    IsControl = True
  end
  object Panel1: TPanel
    Left = 176
    Top = 8
    Width = 329
    Height = 33
    TabOrder = 6
    object copyBtn: TButton
      Left = 8
      Top = 8
      Width = 65
      Height = 17
      Caption = 'Copy to...'
      Enabled = False
      TabOrder = 0
      OnClick = copyBtnClick
    end
    object allBtn: TRadioButton
      Left = 288
      Top = 8
      Width = 33
      Height = 17
      Caption = 'All'
      Enabled = False
      TabOrder = 3
    end
    object sameBaseNoteBtn: TRadioButton
      Left = 80
      Top = 8
      Width = 113
      Height = 17
      Caption = 'Same base key'
      Checked = True
      Enabled = False
      TabOrder = 1
      TabStop = True
    end
    object sameNoteBtn: TRadioButton
      Left = 200
      Top = 8
      Width = 81
      Height = 17
      Caption = 'Same key'
      Enabled = False
      TabOrder = 2
    end
  end
end